1 REM"[134]=SAVE"@0:CONT.LDR.PAL",8
10 [159]1,8,8,"@0:CONT.LDR.ML,P,W"
20 [158]700
30 .OPT O1
40 .BAS
100 [143] **************************
110 [143] *                        *
120 [143] *  HIRES PICTURE LOADER  *
130 [143] *    FOR COMMODORE 64    *
140 [143] *                        *
150 [143] *                        *
160 [143] *    DON WHITE           *
170 [143] *    47 ARIEL COURT      *
180 [143] *    NEPEAN, ONTARIO     *
190 [143] *    K2H 8J1             *
200 [143] *                        *
210 [143] *    613-829-2082        *
220 [143] *                        *
230 [143] **************************
240 [143]
250 [153]"LOAD
260 IFCT>0THEN340
270 CLR:RESTORE
280 CT=0:REM INITIALIZE COUNTER
290 NN=20:REM # PICTURES TO LOAD
300 V=53248:POKEV+17,59:POKEV+24,25:REM HIGH RES SCREEN
310 :
320 DIMPI$(NN),CL(NN):FORI=1TONN:READ PI$(I),CL(I):NEXT:GOTO400
330 :
340 PRINT"[147]"
350 GETZZ$:IFZZ$="S"THENPOKEV+17,27:POKEV+24,21:PRINT"[147]":END
360 POKE53280,INT(16*RND(1))
370 POKE828,CL(CT)
380 SYS"COLFILL"
390 FORI=1TO2000:NEXT:PRINT"[147]"
400 PRINT"[147]":CT=CT+1:IFCT>NNTHEN270
410 LOAD PI$(CT),8,1:REM LOAD PICTURE ON HIRES SCREEN
420 :
430 REM NAMES & COLOURS OF PICTURES
440 :
450 DATA FIG1,7,TEX,28,FIG2,137,HOPALONG,28,SQUEEZE,235
455 DATA GUY,80,FIG3,133,MOUND2,7,EYES,22,FRIENDS,251
460 DATA SINCOS2,44,SATELLITE,224,DONALD.DUCK,22,VM.THINGS,97,SESAME.ST,122
465 DATA NUDE.REV,1,VIS.ROSETTE,20,VIS.G1A,87
470 DATA XMAS.CARD.1,81,4HILL5,27
490 END
500 ; ASSEMBLER
510 SCRNLO = $00FB
520 SCRNHI = $00FC
530 COLOUR = $033C
540 COLFILL = *
550 LDA COLOUR
560 LDY #00
570 STY SCRNLO
580 LDX #04
590 NXPAGE STX SCRNHI
600 NEXT STA (SCRNLO),Y
610 INY
620 BNE NEXT
630 INX
640 STX SCRNHI
650 CPX #$08
660 BNE NXPAGE
670 RTS